home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni & Inventori / Invenzioni and Inventori (Eclectica Publishing) (1996).ISO / invenzio / vivid / getat2.dir / 00132_Script_132 < prev    next >
Text File  |  1996-11-09  |  2KB  |  93 lines
  1. ON ARCHIVIO
  2.   if (the mouseh >= 51 and the mouseh <= 548) and (the mousev >=0 and the mousev <= 429) then
  3.     GLOBAL LISTA, TIPO, NOME, MATERIALE,utente,var_dll,videocast,sprit
  4.     
  5.     SET CST TO  THE MOUSECAST
  6.     set var_dll to 0
  7.     SET TIPO= chars(STRING(THE CASTTYPE OF CAST (CST )),1,length(STRING(THE CASTTYPE OF CAST (CST ))))
  8.     
  9.     set videocast to 0
  10.     repeat with wx= 1 to 48
  11.       if the castnum of sprite wx then
  12.         IF THE CASTTYPE OF cast (the castnum of sprite wx)= #DIGITALVIDEO THEN
  13.           set videocast to THE CASTNUM OF SPRITE WX
  14.           SET SPRIT TO WX
  15.           EXIT REPEAT
  16.         END IF
  17.       end if
  18.       
  19.     end repeat  
  20.     
  21.     
  22.     if tipo ="digitalVideo" then 
  23.       set materiale to the fileName of cast (CST)
  24.       
  25.       
  26.       
  27.     end if
  28.     if tipo ="bitmap" then 
  29.       if  the height of cast (CST)=480 and the width of cast (CST)=640 then
  30.         
  31.         if the machineType<256 then
  32.           linkdll "stagetc"
  33.           put StageToCast(mNew,0,51,430,570) into mauro
  34.           set materiale to mauro(mgethandle)
  35.           mauro(mDispose)
  36.           
  37.           
  38.         else          
  39.           global copyObj, savePicHandle, pictureFlag,cobalto
  40.           linkdll "dataproj"
  41.           put dataproj (mNew ) into cobalto
  42.           cobalto(mSetCaptureRect,51,0,570,430)
  43.           
  44.           
  45.         end if
  46.       else
  47.         put the picture of cast (CST) into materiale
  48.       end if
  49.     end if
  50.     
  51.     
  52.     
  53.     if tipo ="text" then 
  54.       SET XX=1
  55.       SET MATERIALE= ""
  56.       REPEAT WHILE XX<=the number of lines of the text of cast (CST)
  57.         set materiale to MATERIALE && line XX of the text of cast (CST)
  58.         SET XX=XX+1
  59.       END REPEAT
  60.     END IF
  61.     
  62.     
  63.     
  64.     global mywindow
  65.     if objectp(mywindow) then forget mywindow 
  66.     
  67.     if the machinetype = 256 then
  68.       set ttt=char 1 to 2 of the pathName&"\invenzio\NOME2.DIR"
  69.     else
  70.       set ttt="invenzioni:invenzio:NOME2.DIR"
  71.     end if
  72.     
  73.     set mywindow to window  "RACCOLTA"
  74.     SET THE FILENAME OF MYWINDOW TO TTT
  75.     -- set the rect of mywindow to mywindowrect
  76.     set the titlevisible of mywindow to true
  77.     set the windowType of window ttt to 0
  78.     
  79.     open mywindow
  80.   end if   
  81.   
  82. end if
  83.  
  84. end
  85.  
  86.  
  87. on ripristina
  88. global sprit,videocast
  89. set   the video of cast videocast to 0
  90. set  the video of cast videocast to 1 
  91. END
  92.  
  93.